/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_2 / issue_07 / fitton / basicprogs / sysfx010

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 64 1b f4 20 3e 20 | 42 61 73 69 63 50 72 6f |..d.. > |BasicPro|
|00000010| 67 73 2e 53 79 73 46 58 | 30 31 30 0d 00 65 0b 20 |gs.SysFX|010..e. |
|00000020| 2a 44 49 52 20 5e 0d 00 | 6e 1f f4 20 41 75 74 68 |*DIR ^..|n.. Auth|
|00000030| 6f 72 20 20 20 20 20 20 | 20 3a 20 47 20 4c 20 46 |or      | : G L F|
|00000040| 69 74 74 6f 6e 0d 00 78 | 24 f4 20 43 6f 70 79 72 |itton..x|$. Copyr|
|00000050| 69 67 68 74 20 20 20 20 | 3a 20 41 42 41 43 55 53 |ight    |: ABACUS|
|00000060| 20 54 52 41 49 4e 49 4e | 47 0d 00 82 24 f4 20 56 | TRAININ|G...$. V|
|00000070| 65 72 73 69 6f 6e 20 30 | 2e 30 30 20 3a 20 31 34 |ersion 0|.00 : 14|
|00000080| 74 68 20 4d 61 72 63 68 | 20 31 39 38 39 0d 00 8c |th March| 1989...|
|00000090| 05 3a 0d 00 96 22 f4 20 | 44 65 6d 6f 6e 73 74 72 |.:...". |Demonstr|
|000000a0| 61 74 65 73 20 53 79 73 | 74 65 6d 20 53 70 72 69 |ates Sys|tem Spri|
|000000b0| 74 65 73 2e 0d 00 a0 05 | 3a 0d 00 aa 16 f4 20 50 |tes.....|:..... P|
|000000c0| 72 65 43 6f 72 65 20 53 | 65 63 74 69 6f 6e 2e 0d |reCore S|ection..|
|000000d0| 00 b4 18 f4 20 53 65 74 | 20 75 70 20 65 72 72 6f |.... Set| up erro|
|000000e0| 72 20 74 72 61 70 2e 0d | 00 be 0e ee 20 85 20 f2 |r trap..|.... . .|
|000000f0| 65 72 72 6f 72 0d 00 c8 | 05 3a 0d 00 d2 16 f4 20 |error...|.:..... |
|00000100| 43 68 6f 6f 73 65 20 74 | 68 65 20 6d 6f 64 65 2e |Choose t|he mode.|
|00000110| 0d 00 dc 08 eb 20 31 32 | 0d 00 e6 05 3a 0d 00 f0 |..... 12|....:...|
|00000120| 1f f4 20 44 65 63 6c 61 | 72 65 20 67 6c 6f 62 61 |.. Decla|re globa|
|00000130| 6c 20 76 61 72 69 61 62 | 6c 65 73 2e 0d 00 fa 05 |l variab|les.....|
|00000140| 3a 0d 01 04 05 3a 0d 03 | e8 13 f4 20 43 6f 72 65 |:....:..|... Core|
|00000150| 20 53 65 63 74 69 6f 6e | 2e 0d 03 f2 05 3a 0d 03 | Section|.....:..|
|00000160| fc 09 2a 53 4e 45 57 0d | 04 06 0e f2 64 72 61 77 |..*SNEW.|....draw|
|00000170| 67 6c 6f 62 65 0d 04 10 | 0e f2 67 65 74 73 70 72 |globe...|..getspr|
|00000180| 69 74 65 0d 04 1a 0f f2 | 73 61 76 65 73 70 72 69 |ite.....|savespri|
|00000190| 74 65 0d 04 24 05 db 0d | 04 2e 05 da 0d 04 38 0f |te..$...|......8.|
|000001a0| f2 6c 6f 61 64 73 70 72 | 69 74 65 0d 04 42 0e f2 |.loadspr|ite..B..|
|000001b0| 70 75 74 73 70 72 69 74 | 65 0d 04 4c 05 e0 0d 04 |putsprit|e..L....|
|000001c0| 56 05 3a 0d 04 60 05 3a | 0d 27 10 0c dd 20 f2 65 |V.:..`.:|.'... .e|
|000001d0| 72 72 6f 72 0d 27 1a 17 | f4 20 52 65 70 6f 72 74 |rror.'..|. Report|
|000001e0| 73 20 61 6e 20 65 72 72 | 6f 72 2e 0d 27 24 05 3a |s an err|or..'$.:|
|000001f0| 0d 27 2e 05 3a 0d 27 38 | 05 3a 0d 27 42 05 f6 0d |.'..:.'8|.:.'B...|
|00000200| 27 4c 13 f1 20 22 20 61 | 74 20 6c 69 6e 65 20 22 |'L.. " a|t line "|
|00000210| 3b 9e 0d 27 56 05 e0 0d | 27 60 05 3a 0d 27 6a 05 |;..'V...|'`.:.'j.|
|00000220| 3a 0d 27 74 10 dd 20 f2 | 64 72 61 77 67 6c 6f 62 |:.'t.. .|drawglob|
|00000230| 65 0d 27 7e 2b f4 20 44 | 72 61 77 73 20 61 20 67 |e.'~+. D|raws a g|
|00000240| 6c 6f 62 65 20 74 6f 20 | 62 65 20 75 73 65 64 20 |lobe to |be used |
|00000250| 61 73 20 61 20 73 70 72 | 69 74 65 2e 0d 27 88 34 |as a spr|ite..'.4|
|00000260| ea 20 6c 65 66 74 25 2c | 62 6f 74 74 6f 6d 25 2c |. left%,|bottom%,|
|00000270| 78 63 25 2c 79 63 25 2c | 73 69 7a 65 25 2c 72 61 |xc%,yc%,|size%,ra|
|00000280| 64 25 2c 61 6e 67 6c 65 | 31 2c 61 6e 67 6c 65 32 |d%,angle|1,angle2|
|00000290| 0d 27 92 05 3a 0d 27 9c | 1b f4 20 49 6e 69 74 69 |.'..:.'.|.. Initi|
|000002a0| 61 6c 69 73 65 20 76 61 | 72 69 61 62 6c 65 73 2e |alise va|riables.|
|000002b0| 0d 27 a6 11 73 69 7a 65 | 25 20 20 20 3d 20 35 31 |.'..size|%   = 51|
|000002c0| 32 0d 27 b0 1d 6c 65 66 | 74 25 20 20 20 3d 20 36 |2.'..lef|t%   = 6|
|000002d0| 34 30 20 20 20 20 2d 73 | 69 7a 65 25 2f 32 0d 27 |40    -s|ize%/2.'|
|000002e0| ba 1d 62 6f 74 74 6f 6d | 25 20 3d 20 35 31 32 20 |..bottom|% = 512 |
|000002f0| 20 20 20 2d 73 69 7a 65 | 25 2f 32 0d 27 c4 1d 78 |   -size|%/2.'..x|
|00000300| 63 25 20 20 20 20 20 3d | 20 6c 65 66 74 25 20 20 |c%     =| left%  |
|00000310| 2b 73 69 7a 65 25 2f 32 | 0d 27 ce 1d 79 63 25 20 |+size%/2|.'..yc% |
|00000320| 20 20 20 20 3d 20 62 6f | 74 74 6f 6d 25 2b 73 69 |    = bo|ttom%+si|
|00000330| 7a 65 25 2f 32 0d 27 d8 | 15 72 61 64 25 20 20 20 |ze%/2.'.|.rad%   |
|00000340| 20 3d 20 73 69 7a 65 25 | 2f 34 0d 27 e2 13 61 6e | = size%|/4.'..an|
|00000350| 67 6c 65 31 20 20 3d 20 | 33 2a af 2f 38 0d 27 ec |gle1  = |3*./8.'.|
|00000360| 18 61 6e 67 6c 65 32 20 | 20 3d 20 61 6e 67 6c 65 |.angle2 | = angle|
|00000370| 31 2d af 2f 32 0d 27 f6 | 05 3a 0d 28 00 16 f4 20 |1-./2.'.|.:.(... |
|00000380| 44 72 61 77 20 67 6c 6f | 62 65 20 61 78 69 73 2e |Draw glo|be axis.|
|00000390| 0d 28 0a 07 e6 20 37 0d | 28 14 29 c8 9d 20 c8 90 |.(... 7.|(.).. ..|
|000003a0| 20 78 63 25 2c 79 63 25 | 2c 73 69 7a 65 25 2f 32 | xc%,yc%|,size%/2|
|000003b0| 2c 73 69 7a 65 25 2f 36 | 34 2c 61 6e 67 6c 65 31 |,size%/6|4,angle1|
|000003c0| 0d 28 1e 05 3a 0d 28 28 | 1d f4 20 44 72 61 77 20 |.(..:.((|.. Draw |
|000003d0| 67 6c 6f 62 65 20 62 6f | 74 74 6f 6d 20 68 61 6c |globe bo|ttom hal|
|000003e0| 66 2e 0d 28 32 07 e6 20 | 34 0d 28 3c 0d ec 20 78 |f..(2.. |4.(<.. x|
|000003f0| 63 25 2c 79 63 25 0d 28 | 46 2f ec 20 20 20 20 20 |c%,yc%.(|F/.     |
|00000400| 78 63 25 2d 72 61 64 25 | 2a 9b 28 61 6e 67 6c 65 |xc%-rad%|*.(angle|
|00000410| 32 29 2c 79 63 25 2d 72 | 61 64 25 2a b5 28 61 6e |2),yc%-r|ad%*.(an|
|00000420| 67 6c 65 32 29 0d 28 50 | 2f f0 20 26 42 35 2c 78 |gle2).(P|/. &B5,x|
|00000430| 63 25 2b 72 61 64 25 2a | 9b 28 61 6e 67 6c 65 32 |c%+rad%*|.(angle2|
|00000440| 29 2c 79 63 25 2b 72 61 | 64 25 2a b5 28 61 6e 67 |),yc%+ra|d%*.(ang|
|00000450| 6c 65 32 29 0d 28 5a 05 | 3a 0d 28 64 1b f4 20 44 |le2).(Z.|:.(d.. D|
|00000460| 72 61 77 20 73 61 74 65 | 6c 6c 69 74 65 20 6f 72 |raw sate|llite or|
|00000470| 62 69 74 2e 0d 28 6e 07 | e6 20 36 0d 28 78 25 c8 |bit..(n.|. 6.(x%.|
|00000480| 9d 20 78 63 25 2c 79 63 | 25 2c 73 69 7a 65 25 2f |. xc%,yc|%,size%/|
|00000490| 38 2c 73 69 7a 65 25 2f | 32 2c 61 6e 67 6c 65 31 |8,size%/|2,angle1|
|000004a0| 0d 28 82 05 3a 0d 28 8c | 1a f4 20 44 72 61 77 20 |.(..:.(.|.. Draw |
|000004b0| 67 6c 6f 62 65 20 74 6f | 70 20 68 61 6c 66 2e 0d |globe to|p half..|
|000004c0| 28 96 07 e6 20 34 0d 28 | a0 0d ec 20 78 63 25 2c |(... 4.(|... xc%,|
|000004d0| 79 63 25 0d 28 aa 2f ec | 20 20 20 20 20 78 63 25 |yc%.(./.|     xc%|
|000004e0| 2b 72 61 64 25 2a 9b 28 | 61 6e 67 6c 65 32 29 2c |+rad%*.(|angle2),|
|000004f0| 79 63 25 2b 72 61 64 25 | 2a b5 28 61 6e 67 6c 65 |yc%+rad%|*.(angle|
|00000500| 32 29 0d 28 b4 2f f0 20 | 26 42 35 2c 78 63 25 2d |2).(./. |&B5,xc%-|
|00000510| 72 61 64 25 2a 9b 28 61 | 6e 67 6c 65 32 29 2c 79 |rad%*.(a|ngle2),y|
|00000520| 63 25 2d 72 61 64 25 2a | b5 28 61 6e 67 6c 65 32 |c%-rad%*|.(angle2|
|00000530| 29 0d 28 be 05 3a 0d 28 | c8 05 3a 0d 28 d2 05 3a |).(..:.(|..:.(..:|
|00000540| 0d 28 dc 05 3a 0d 28 e6 | 05 3a 0d 28 f0 05 e1 0d |.(..:.(.|.:.(....|
|00000550| 28 fa 05 3a 0d 29 04 10 | dd 20 f2 67 65 74 73 70 |(..:.)..|. .getsp|
|00000560| 72 69 74 65 0d 29 0e 28 | f4 20 50 69 63 6b 20 20 |rite.).(|. Pick  |
|00000570| 75 70 20 61 20 73 70 72 | 69 74 65 20 66 72 6f 6d |up a spr|ite from|
|00000580| 20 74 68 65 20 73 63 72 | 65 65 6e 2e 0d 29 18 28 | the scr|een..).(|
|00000590| f4 20 53 61 76 65 20 69 | 74 20 69 6e 20 74 68 65 |. Save i|t in the|
|000005a0| 20 73 79 73 74 65 6d 20 | 73 70 72 69 74 65 20 61 | system |sprite a|
|000005b0| 72 65 61 2e 0d 29 22 25 | ea 20 6c 65 66 74 25 2c |rea..)"%|. left%,|
|000005c0| 62 6f 74 74 6f 6d 25 2c | 73 69 7a 65 25 2c 72 69 |bottom%,|size%,ri|
|000005d0| 67 68 74 25 2c 74 6f 70 | 25 0d 29 2c 05 3a 0d 29 |ght%,top|%.),.:.)|
|000005e0| 36 1b f4 20 49 6e 69 74 | 69 61 6c 69 73 65 20 76 |6.. Init|ialise v|
|000005f0| 61 72 69 61 62 6c 65 73 | 2e 0d 29 40 11 73 69 7a |ariables|..)@.siz|
|00000600| 65 25 20 20 20 3d 20 35 | 31 32 0d 29 4a 1d 6c 65 |e%   = 5|12.)J.le|
|00000610| 66 74 25 20 20 20 3d 20 | 36 34 30 20 20 20 20 2d |ft%   = |640    -|
|00000620| 73 69 7a 65 25 2f 32 0d | 29 54 1d 62 6f 74 74 6f |size%/2.|)T.botto|
|00000630| 6d 25 20 3d 20 35 31 32 | 20 20 20 20 2d 73 69 7a |m% = 512|    -siz|
|00000640| 65 25 2f 32 0d 29 5e 1d | 72 69 67 68 74 25 20 20 |e%/2.)^.|right%  |
|00000650| 3d 20 6c 65 66 74 25 20 | 20 2b 73 69 7a 65 25 2d |= left% | +size%-|
|00000660| 31 0d 29 68 1d 74 6f 70 | 25 20 20 20 20 3d 20 62 |1.)h.top|%    = b|
|00000670| 6f 74 74 6f 6d 25 2b 73 | 69 7a 65 25 2d 31 0d 29 |ottom%+s|ize%-1.)|
|00000680| 72 05 3a 0d 29 7c 14 ec | 20 6c 65 66 74 25 20 2c |r.:.)|..| left% ,|
|00000690| 62 6f 74 74 6f 6d 25 0d | 29 86 11 ec 20 72 69 67 |bottom%.|)... rig|
|000006a0| 68 74 25 2c 74 6f 70 25 | 0d 29 90 05 3a 0d 29 9a |ht%,top%|.)..:.).|
|000006b0| 05 3a 0d 29 a4 0f 2a 53 | 47 45 54 20 67 6c 6f 62 |.:.)..*S|GET glob|
|000006c0| 65 0d 29 ae 05 3a 0d 29 | b8 05 e1 0d 29 c2 05 3a |e.)..:.)|....)..:|
|000006d0| 0d 29 cc 11 dd 20 f2 73 | 61 76 65 73 70 72 69 74 |.)... .s|avesprit|
|000006e0| 65 0d 29 d6 24 f4 20 53 | 61 76 65 73 20 74 68 65 |e.).$. S|aves the|
|000006f0| 20 73 70 72 69 74 65 20 | 61 72 65 61 20 74 6f 20 | sprite |area to |
|00000700| 64 69 73 63 2e 0d 29 e0 | 05 3a 0d 29 ea 1f 2a 53 |disc..).|.:.)..*S|
|00000710| 53 41 56 45 20 4d 79 53 | 70 72 69 74 65 73 2e 53 |SAVE MyS|prites.S|
|00000720| 70 72 69 74 65 46 69 6c | 65 0d 29 f4 05 3a 0d 29 |priteFil|e.)..:.)|
|00000730| fe 05 3a 0d 2a 08 05 3a | 0d 2a 12 05 3a 0d 2a 1c |..:.*..:|.*..:.*.|
|00000740| 05 e1 0d 2a 26 05 3a 0d | 2a 30 11 dd 20 f2 6c 6f |...*&.:.|*0.. .lo|
|00000750| 61 64 73 70 72 69 74 65 | 0d 2a 3a 24 f4 20 4c 6f |adsprite|.*:$. Lo|
|00000760| 61 64 73 20 61 20 73 70 | 72 69 74 65 20 66 69 6c |ads a sp|rite fil|
|00000770| 65 20 66 72 6f 6d 20 64 | 69 73 63 2e 0d 2a 44 05 |e from d|isc..*D.|
|00000780| 3a 0d 2a 4e 1f 2a 53 4c | 4f 41 44 20 4d 79 53 70 |:.*N.*SL|OAD MySp|
|00000790| 72 69 74 65 73 2e 53 70 | 72 69 74 65 46 69 6c 65 |rites.Sp|riteFile|
|000007a0| 0d 2a 58 05 3a 0d 2a 62 | 05 3a 0d 2a 6c 05 3a 0d |.*X.:.*b|.:.*l.:.|
|000007b0| 2a 76 05 3a 0d 2a 80 05 | e1 0d 2a 8a 05 3a 0d 2a |*v.:.*..|..*..:.*|
|000007c0| 94 10 dd 20 f2 70 75 74 | 73 70 72 69 74 65 0d 2a |... .put|sprite.*|
|000007d0| 9e 22 f4 20 50 6c 6f 74 | 73 20 61 20 73 70 72 69 |.". Plot|s a spri|
|000007e0| 74 65 20 74 6f 20 74 68 | 65 20 73 63 72 65 65 6e |te to th|e screen|
|000007f0| 0d 2a a8 23 f4 20 20 66 | 72 6f 6d 20 74 68 65 20 |.*.#.  f|rom the |
|00000800| 73 79 73 74 65 6d 20 73 | 70 72 69 74 65 20 61 72 |system s|prite ar|
|00000810| 65 61 2e 0d 2a b2 1a ea | 20 6c 65 66 74 25 2c 62 |ea..*...| left%,b|
|00000820| 6f 74 74 6f 6d 25 2c 78 | 73 74 65 70 25 0d 2a bc |ottom%,x|step%.*.|
|00000830| 05 3a 0d 2a c6 1b f4 20 | 49 6e 69 74 69 61 6c 69 |.:.*... |Initiali|
|00000840| 73 65 20 76 61 72 69 61 | 62 6c 65 73 2e 0d 2a d0 |se varia|bles..*.|
|00000850| 11 6c 65 66 74 25 20 20 | 20 3d 20 31 32 38 0d 2a |.left%  | = 128.*|
|00000860| da 11 62 6f 74 74 6f 6d | 25 20 3d 20 31 32 38 0d |..bottom|% = 128.|
|00000870| 2a e4 11 78 73 74 65 70 | 25 20 20 3d 20 33 38 34 |*..xstep|%  = 384|
|00000880| 0d 2a ee 11 79 73 74 65 | 70 25 20 20 3d 20 33 38 |.*..yste|p%  = 38|
|00000890| 34 0d 2a f8 05 3a 0d 2b | 02 18 f4 20 43 68 6f 6f |4.*..:.+|... Choo|
|000008a0| 73 65 20 74 68 65 20 73 | 70 72 69 74 65 2e 0d 2b |se the s|prite..+|
|000008b0| 0c 12 2a 53 43 48 4f 4f | 53 45 20 67 6c 6f 62 65 |..*SCHOO|SE globe|
|000008c0| 0d 2b 16 05 3a 0d 2b 20 | 11 f4 20 55 73 65 20 61 |.+..:.+ |.. Use a|
|000008d0| 20 6d 61 73 6b 2e 0d 2b | 2a 09 e6 20 38 2c 30 0d | mask..+|*.. 8,0.|
|000008e0| 2b 34 05 3a 0d 2b 3e 21 | f4 20 50 6c 6f 74 20 74 |+4.:.+>!|. Plot t|
|000008f0| 68 65 20 73 70 72 69 74 | 65 20 66 6f 75 72 20 74 |he sprit|e four t|
|00000900| 69 6d 65 73 2e 0d 2b 48 | 1e f0 20 26 45 44 2c 6c |imes..+H|.. &ED,l|
|00000910| 65 66 74 25 20 20 20 20 | 20 20 20 2c 62 6f 74 74 |eft%    |   ,bott|
|00000920| 6f 6d 25 0d 2b 52 1e f0 | 20 26 45 44 2c 6c 65 66 |om%.+R..| &ED,lef|
|00000930| 74 25 2b 78 73 74 65 70 | 25 2c 62 6f 74 74 6f 6d |t%+xstep|%,bottom|
|00000940| 25 0d 2b 5c 25 f0 20 26 | 45 44 2c 6c 65 66 74 25 |%.+\%. &|ED,left%|
|00000950| 2b 78 73 74 65 70 25 2c | 62 6f 74 74 6f 6d 25 2b |+xstep%,|bottom%+|
|00000960| 79 73 74 65 70 25 0d 2b | 66 25 f0 20 26 45 44 2c |ystep%.+|f%. &ED,|
|00000970| 6c 65 66 74 25 20 20 20 | 20 20 20 20 2c 62 6f 74 |left%   |    ,bot|
|00000980| 74 6f 6d 25 2b 79 73 74 | 65 70 25 0d 2b 70 05 3a |tom%+yst|ep%.+p.:|
|00000990| 0d 2b 7a 05 3a 0d 2b 84 | 05 3a 0d 2b 8e 05 3a 0d |.+z.:.+.|.:.+..:.|
|000009a0| 2b 98 05 e1 0d 2b a2 05 | 3a 0d 2b ac 05 3a 0d 2b |+....+..|:.+..:.+|
|000009b0| b6 05 3a 0d ff          |                         |..:..   |        |
+--------+-------------------------+-------------------------+--------+--------+